Mobiclic 75/MOBICLIC 75.ISO/pc/DATA/TCHATCHE/doggy75-84.cst/00072_Script_évolutions sur menus.cst

Text File | 2005-06-13 | 5KB | 176 lines

global traitLiaison,choix

on initMobile sPoint,remplacement
  -- initialisation d'une procΘdure traitLaison
  -- sPoint est le numΘro de la piste portant le point mobile (ex: acteur TrL Point de menu.cst)
  -- remplacement : si 0 l'acteur de la piste sPoint est utilisΘ, 1 il est remplacΘ par l'acteur
  -- de la piste s

  _player.cursor(290)
  s = _player.currentSpriteNum

  x = _mouse.mouseH - sprite(s).locH
  y = _mouse.mouseV - sprite(s).locV
  x=0
  y=0

  if the paramCount = 1 then
    remplacement=0
  end if
  sound(2).play(member "poc")
  sprite(sPoint).locH = _mouse.mouseH - x
  sprite(sPoint).locV = _mouse.mouseV - y

  if remplacement = 1 then
    sprite(sPoint).member = sprite(s).member
  end if
  sprite(sPoint).visible = 1
  traitLiaison = [s,x,y]
  updateStage

end

on initMobileTexte sPoint,remplacement
  -- initialisation d'une procΘdure traitLaison
  -- sPoint est le numΘro de la piste portant le point mobile (ex: acteur TrL Point de menu.cst)
  -- remplacement : si 0 l'acteur de la piste sPoint est utilisΘ, 1 il est remplacΘ par l'acteur
  -- de la piste s

  _player.cursor(290)
  s = _player.currentSpriteNum

  x = sprite(s).width /2
  y = sprite(s).height /2

  if the paramCount = 1 then
    remplacement=0
  end if
  sound(2).play(member "poc")
  sprite(sPoint).locH = _mouse.mouseH - x
  sprite(sPoint).locV = _mouse.mouseV - y

  if remplacement = 1 then
    sprite(sPoint).member = sprite(s).member
  end if
  sprite(sPoint).visible = 1
  traitLiaison = [s,x,y]
  upDateStage

end

on initMobileV2 sPoint,piste1,remplacement
  -- initialisation d'une procΘdure traitLaison
  -- sPoint est le numΘro de la piste portant le point mobile (ex: acteur TrL Point de menu.cst)
  -- remplacement : si 0 l'acteur de la piste sPoint est utilisΘ, 1 il est remplacΘ par l'acteur
  -- de la piste s
  -- piste1 : piste mobile de rang le plus bas
  cursor(290)
  s = the currentSpriteNum
  x =  the mouseH - sprite(s).locH
  y =  the mouseV - sprite(s).locV

  if getPos(choix,s-piste1+1)<>0 then
    choix[getPos(choix,s-piste1+1)]=0
  end if
  if the paramCount =2 then
    remplacement=0
  end if
  sound(2).play(member "poc")
  sprite(sPoint).locH = _mouse.mouseH - x
  sprite(sPoint).locV = _mouse.mouseV - y

  if remplacement = 1 then
    sprite(sPoint).member = sprite(s).member
  end if
  afficherPistes sPoint
  traitLiaison = [s,x,y]
  _movie.upDateStage()
end

on gestMobile pisteMobile
  -- pisteMobile : piste du point mobile
  -- la variable liste traitLiaison contient :
  ---- 1 : piste de l'objet origine
  ---- 2 : locH de l'objet origine
  ---- 3 : locV de l'objet origine
  sprite(pisteMobile).locH = _mouse.mouseH - traitLiaison[2]
  sprite(pisteMobile).locV = _mouse.mouseV - traitLiaison[3]
  _movie.upDateStage()
end

on glisserDeposer s1,s2,s3,s4,mode
  -- scripts de la version 1 mis α jour en syntaxe MX ******
  -- s1 : est la piste cible de plus bas numΘro
  -- s2 : est la piste cible de numΘro le plus ΘlevΘ
  -- s3 : piste acteur α dΘplacer de plus bas numΘro
  -- s4 : piste point en bout d'Θlastique
  -- mode : l'objet dΘplacΘ est supprimΘ si valeur 1, laissΘ en place si 0
  if the paramCount =3 then
    mode = 0
  end if
  global traitLiaison, choix
  if sprite(s4).visible = 1 then
    _player.cursor(-1)

    s = traitLiaison[1]
    repeat with i = s1 to s2
      if sprite(s4).intersects(i) then
        -- emplacement occupΘ ? ------------------------------------
        if choix[i+1-s1]<>0 then
          if mode = 1 then
            sprite(s3-1+choix[i-s1+1]).visible=1
          end if
        end if
        -- mise en place de l'ΘlΘment glissΘ -----------------------
        sprite(i).member = sprite(s4).member
        _movie.updateStage()
        choix[i-s1+1] = s-s3+1
        sprite(i).visible=1
        if mode = 1 then
          sprite(s).visible=0
        end if
        _movie.upDateStage()
        sound(2).play(member "poc")
        exit repeat
      end if
    end repeat
    sprite(s4-2).visible=0
    sprite(s4-1).visible=0
    sprite(s4).visible = 0
    -- l'ΘlΘment dΘposΘ n'est en intersection avec aucune zone
    if i=1+s2 then
      sound(2).play(member "echec")
    end if
  end if
end

-- partie entiΦre d'un nombre
on entiere nombre
  chaine = string(nombre)
  posVirgule = offset(".", chaine)
  if posVirgule = 0 then
    return nombre
  else
    return value(chaine.char[1..posVirgule])
  end if
end

-- partie fractionnaire d'un nombre
on fraction nombre
  chaine = string(nombre)
  posVirgule = offset(".", chaine)
  if posVirgule = 0 then
    return 0
  else
    return value(chaine.char[posVirgule..chaine.char.count])
  end if
end

on nb2chiffres nombre
  if nombre < 10 then
    nb2 = "0" & string(nombre)
  else
    nb2 = string(nombre)
  end if
  return nb2
end